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BEGIN : 

i : = N ; START FROM MSB L I 

Q . = 0 ; INITIALIZE ACCUMULATOR L2 

H .= 0 ; INITIALIZE STATE L3 

LUOP • ; FOR ALL BITS 

Q : = Q ♦ Q ; DOUBLE ACCUMULATOR L 4 

IF H = 0 ; IF H STATE IS SET L 5 

Q . = Q ♦ P ; ADD BASE POINT TO ACCUMULATOR L 6 

GOTO ENDLOOP ; L7 

ELSE ; ELSE 

Q : = Q * (-P) ; SUBTRACT BASE POINT L8 

GOTO ENDLOOP \ L9 

ENDLOOP : 

H . = b[i] ; SET H STATE TO VALUE OF b [ i ] LlO 

i := i-l , PROCESS NEXT BIT Lll 

IF i> 0 ; IF BIT EXISTS L 12 

GOTO LOOP ; CONTINUE AT TOP OF LOOP L 13 

IF H =0 ; IF EXISTING FROM H = 0 STATE L \U 

Q : = 0. ♦ (-P) , CORRECT RESULT BY FINAL SUBTRACT L 15 

END L 16 
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INITIALIZE ACCUMULATOR L L 2 

STATE ENTRY POINT 
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BRANCH TO END OF LOOP TESTS LL5 
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END OF LOOP TESTS 
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i : = i - I 
IF i>0 

GOTO HI 
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END 



P) 



HI PATH 

PROCESS NEXT BIT 
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EXECUTE HI STATE 
ELSE CORRECT RESULT AND END 
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END 
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BEGIN : 

i : = N 
Q : = I 



Q : = Q Q. (QM 
Q : = QM 
GOTO ENDLOOP 

Hi : 

Q: =QQ 

Q. =Q/M (Q-M- 1 ) 

ENDLOOP : 

IF b[i] =« GOTO ENDLOOP 

NEXT HI : 

i = i - I 
IF i>0 
GOTO HI 
Q =Q/M 
END 

NEXT HO . 

i = i - I 
IF i>0 
GOTO HO 
END 
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